home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 603 / emacs / cmd / stkeypad.cmd < prev    next >
OS/2 REXX Batch file  |  1992-03-14  |  2KB  |  101 lines
  1. store-procedure insert-leftparen
  2.     insert-string (
  3. !endm
  4. store-procedure insert-rightparen
  5.     insert-string )
  6. !endm
  7. store-procedure insert-slash
  8.     insert-string /
  9. !endm
  10. store-procedure insert-asterisk
  11.     insert-string "*"
  12. !endm
  13. store-procedure insert-seven
  14.     insert-string 7
  15. !endm
  16. store-procedure insert-eight
  17.     insert-string 8
  18. !endm
  19. store-procedure insert-nine
  20.     insert-string 9
  21. !endm
  22. store-procedure insert-minus
  23.     insert-string -
  24. !endm
  25. store-procedure insert-four
  26.     insert-string 4
  27. !endm
  28. store-procedure insert-five
  29.     insert-string 5
  30. !endm
  31. store-procedure insert-six
  32.     insert-string 6
  33. !endm
  34. store-procedure insert-plus
  35.     insert-string +
  36. !endm
  37. store-procedure insert-one
  38.     insert-string 1
  39. !endm
  40. store-procedure insert-two
  41.     insert-string 2
  42. !endm
  43. store-procedure insert-three
  44.     insert-string 3
  45. !endm
  46. store-procedure insert-newline
  47.     insert-string ~n
  48. !endm
  49. store-procedure insert-zero
  50.     insert-string 0
  51. !endm
  52. store-procedure insert-dot
  53.     insert-string .
  54. !endm
  55. macro-to-key insert-leftparen        FN^(
  56. macro-to-key insert-rightparen        FN^)
  57. macro-to-key insert-slash        FN^/
  58. macro-to-key insert-asterisk        FN^*
  59. macro-to-key insert-seven        FN^7
  60. macro-to-key insert-eight        FN^8
  61. macro-to-key insert-nine        FN^9
  62. macro-to-key insert-minus        FN^@
  63. macro-to-key insert-four        FN^4
  64. macro-to-key insert-five        FN^5
  65. macro-to-key insert-six            FN^6
  66. macro-to-key insert-plus        FN^D
  67. macro-to-key insert-one            FN^1
  68. macro-to-key insert-two            FN^2
  69. macro-to-key insert-three        FN^3
  70. macro-to-key insert-newline        FN^E
  71. macro-to-key insert-zero        FN^0
  72. macro-to-key insert-dot            FN^.
  73. bind-to-key  delete-next-character    FNI
  74. bind-to-key  delete-next-character    ^?
  75. bind-to-key  beginning-of-file          FND
  76. bind-to-key  end-of-line                S-FNF
  77. bind-to-key  beginning-of-line          S-FNB
  78. bind-to-key  previous-page              S-FNP
  79. bind-to-key  next-page                  S-FNN
  80.  
  81. macro-to-key  get-help            FNH
  82.  
  83. ;   Rebind some keys:
  84. !force unbind-key ^S
  85. !force unbind-key ^X-S
  86. !force unbind-key ^R
  87. !force unbind-key ^X-R
  88. !force unbind-key ^Z
  89.  
  90. bind-to-key incremental-search ^S
  91. bind-to-key search-forward ^XS
  92. bind-to-key reverse-incremental-search ^R
  93. bind-to-key search-reverse ^XR
  94. bind-to-key query-replace-string M-%
  95.  
  96. !if &seq &left $osystem 4 "MiNT" 
  97. bind-to-key suspend-emacs ^Z
  98. !endif
  99.  
  100. write-message    "[Numeric keypad defined]"
  101.